Strategy Challenges Collection/Strategy Challenges Collection.iso/pc/demo/demodata/menu.dxr/00026.ls

Text File | 1996-10-02 | 1.3 KB | 52 lines

on enterFrame
  global gBeenThere, gVoiceFlag
  set the timeoutLapsed to 0
  if gBeenThere = 0 then
    repeat with nn = 4 to 6
      puppetSprite(nn, 1)
    end repeat
    if gVoiceFlag = 0 then
      puppetSound("SubMain.aif")
      set gVoiceFlag to 1
    end if
    set gBeenThere to 1
  end if
end

on exitFrame
  timeOutCheck()
  go(the frame)
  SubmenuRoll()
end

on SubmenuRoll
  if the mouseCast > 1 then
    set tempName to the name of cast the mouseCast
    if tempName contains "_Roll" then
      nothing()
    else
      repeat with nn = 4 to 6
        if the castNum of sprite nn < 1 then
          next repeat
        end if
        if the name of cast the castNum of sprite nn contains "_Roll" then
          set tempOld to the name of cast the castNum of sprite nn
          set tempOld to chars(tempOld, 1, length(tempOld) - 5)
          set the castNum of sprite nn to the number of member tempOld
          exit repeat
        end if
      end repeat
      repeat with nn = 4 to 6
        if the castNum of sprite nn < 1 then
          next repeat
        end if
        if the name of cast the castNum of sprite nn = tempName then
          set the castNum of sprite nn to the number of member (tempName & "_Roll")
          exit repeat
        end if
      end repeat
    end if
  end if
  updateStage()
end